home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 24
/
Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso
/
Aminet
/
util
/
sys
/
SerialPrefs292.lha
/
serialprefs_2.9.2
/
Install_Eng
< prev
next >
Wrap
Text File
|
1998-02-15
|
2KB
|
118 lines
;
;$VER: 1.02 SerialPrefs Installer (C) 1997-98 by Lorenzo Succi.
;
(welcome "Welcome to the SerialPrefs Installer v1.02")
(set @app-name "SPInstall")
(set #DESTDIR "SYS:Prefs")
(set #DESTLIB "Libs:")
(set #DEFICON 0)
(set #GETICON 0)
(set #DEFLIB 0)
(message "\n\nWelcome to the SerialPrefs Installer\n"
"(c) 1996-98 Lorenzo Succi.\n\n"
"This program install the SerialPrefs 2.9.2\n"
" in your computer.\n"
"SerialPrefs enhance the control and the power\n"
"of your serial.device, in the respect of the original\n"
"directives of Commodore.\n"
"Read the documentation for more informations.\n\n"
)
(set #DESTDIR
(askdir
(prompt "Select the drawer where do you want to install SerialPrefs\n"
)
(help @askdir-help)
(default #DESTDIR)
)
)
(set @default-dest #DESTDIR)
(set #GETICON
(askchoice
(prompt "Select the icon type for SerialPrefs.\n"
)
(help @askchoice-help)
(choices "Normal"
"Magic Wb"
"Newicon"
(default #DEFICON)
)
)
)
(copyfiles
(prompt "Copying Gui.library")
(help @copyfiles-help)
(source "libs/Gui.library")
(dest #DESTLIB)
(noposition)
(optional fail force)
)
(copyfiles
(prompt "Copying SerialPrefs")
(help @copyfiles-help)
(source "bin/SerialPrefs")
(dest #DESTDIR)
(noposition)
(optional fail force)
)
(if (= #GETICON 0)
(copyfiles
(prompt "Copying default icon")
(help @copyfiles-help)
(source "icons/NN")
(newname "SerialPrefs.info")
(dest #DESTDIR)
(noposition)
(optional fail force)
)
endif)
(if (= #GETICON 1)
(copyfiles
(prompt "Copying MagicWb icon")
(help @copyfiles-help)
(source "icons/MWB")
(newname "SerialPrefs.info")
(dest #DESTDIR)
(noposition)
(optional fail force)
)
endif)
(if (= #GETICON 2)
(copyfiles
(prompt "Copying Newicon icon")
(help @copyfiles-help)
(source "icons/NI")
(newname "SerialPrefs.info")
(dest #DESTDIR)
(noposition)
(optional fail force)
)
endif)
(if (> (exists ("c:multiview")) 0) (set #mvpath "c:") )
(if (> (exists ("sys:Utilities/multiview")) 0) (set #mvpath "sys:Utilities") )
(run (cat "run " #mvpath "/multiview Changes.readme") )